****** PROGRAM FILE FOR COMPUTING "SPENDING BIAS DIFFERENTIALS" DISCUSSED IN THE TEXT USED TO PROVIDE CONTEXT FOR FIGURE 1 ****
 
 
* OPEN STATA OUTPUT FILE LOG *

   log using "C:\Users\gk57526\Dropbox\Informal & Formal Bargaining (BAA Reforms)\JOP Replication File Materials\JOP Dataverse Replication Files\Output\execbudinfluence.10-18-2020.FIGURE 1.SPENDING BIAS DIFFERENTIALS.03-10-2021.smcl" 




 * OPEN "EXECUTIVE BUDGETARY INFLUENCE" DATABASE WITH PAIR OF NEWLY CREATED VARIABLES TO EVALUATE SPENSING BIAS DIFFERENTIALS *
 
use "C:\Users\gk57526\Dropbox\Informal & Formal Bargaining (BAA Reforms)\JOP Replication File Materials\JOP Dataverse Replication Files\Data\execbudinfluence.08-26-2020.REPORTED MODELS.REV.V2.10-17-2020.dta", replace

 

*** DECLARE DATABASE AS A PANEL (AGENCY ID * FISCAL YEAR): 

xtset agenid fyear, yearly

*
*
*


*****************************************************************************************************************************************************************************************
**********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************



quietly movestay congbudchangereg2  l1congbudchangereg2  execbudchangereg2 ebcreg2baa  bureauofbudget lnagencyage unifiedpartygovt  presadminyear ///
if agenid!=15, cluster(agenid)  select(regimereg = executiveagency)



*** REGULAR DISCRETIONARY BUDGETS [EXCLUDING EXTRAMURAL FUNDS] ***

*** PRE-BAA REFORM ERA: AUSTERE EXECUTIVE BUDGET PROPOSALS [E <= A] ***

sum diffexeccongbudreg if e(sample) & bureauofbudget==0 & regimereg==1, detail

display r(sum)



*** PRE-BAA REFORM ERA: PROFLIGATE EXECUTIVE BUDGET PROPOSALS [E > A] ***

sum diffexeccongbudreg if e(sample) & bureauofbudget==0 & regimereg==0, detail

display r(sum)

display 2.570e+09 / -1.148e+09



******************************************************************************************************************************************************************************************
******************************************************************************************************************************************************************************************
******************************************************************************************************************************************************************************************


*** POST-BAA REFORM ERA: AUSTERE EXECUTIVE BUDGET PROPOSALS [E <= A] ***

sum diffexeccongbudreg if e(sample) & bureauofbudget==1 & regimereg==1, detail

display r(sum)



*** POST-BAA REFORM ERA: PROFLIGATE EXECUTIVE BUDGET PROPOSALS [E > A] ***

sum diffexeccongbudreg if e(sample) & bureauofbudget==1 & regimereg==0, detail

display r(sum)

display 3.069e+09 / -2.173e+09



 *** COMPUTE FACTOR RATIO CHANGE FROM PRE-BAA REFORM TO POST-BAA REFORM ERA ***

display (-1.4123332 / -2.238676)*100 - 100



*****************************************************************************************************************************************************************************************
*****************************************************************************************************************************************************************************************
*****************************************************************************************************************************************************************************************
*****************************************************************************************************************************************************************************************
*****************************************************************************************************************************************************************************************
****************************************************************************************************************************************************************************************



*** NOW FOR TOTAL DISCRETIONARY BUDGETS 9INCLUDING EXTRAMURAL FUNDS] ***




*** PRE-BAA REFORM ERA: AUSTERE EXECUTIVE BUDGET PROPOSALS [E <= A] ***

sum diffexeccongbudtot if e(sample) & bureauofbudget==0 & regimereg==1, detail

display r(sum)



 *** PRE-BAA REFORM ERA: PROFLIGATE EXECUTIVE BUDGET PROPOSALS [E > A] ***

sum diffexeccongbudtot if e(sample) & bureauofbudget==0 & regimereg==0, detail

display r(sum)


display 2.746e+09 / -2.179e+09




*** POST-BAA REFORM ERA: AUSTERE EXECUTIVE BUDGET PROPOSALS [E <= A] ***

sum diffexeccongbudtot if e(sample) & bureauofbudget==1 & regimereg==1, detail

display r(sum)



*** POST-BAA REFORM ERA: PROFLIGATE EXECUTIVE BUDGET PROPOSALS [E > A] ***

sum diffexeccongbudtot if e(sample) & bureauofbudget==1 & regimereg==0, detail

display r(sum)


display 1.684e+09 / -3.849e+09



display (-.43751624 / -1.2602111)*100 - 100




log close
